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ksfo-client.txt 

# ! /usr/1 ocal/bi n/perl 

# webchat(tm) Client v 0.2 

# Copyright (c) 1995 internet Roundtable society 

# Programmed by Michael Fremont, email: webchat@irsociety.com 

# This program is free software; you can redistribute it and/or modify 

# it under the terms of the GNU General Public License as published by 

# the Free software Foundation; either version 2 of the License, or 

# Cat your option) any later version. 

# This program is distributed in the hope that it will be useful, 

# but WITHOUT ANY WARRANTY; without even the implied warranty of 

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 

# GNU General Public License for more details. 

# YOU should have received a copy of the gnu General public License 

# along with this program; if not, write to the Free Software 

# Foundation, Inc.. 675 Mass Ave, Cambridge, MA 02139, USA. 



# this script is executed when a user submits the "chat" form. 

#LITERALS 

# 

SLOCK^SH = 1; 
$LOCK_EX =2; 
$LOCK„NB =4; 
$LOCK_UN =8; 

ITRUE =1; 
JFALSE = 0; 

#GLOBALS 
# 

Sclient = "http:/cgi-bin/nph-client#anchorl*'; 

# the following line is for the www.irsociety.com system 

#$talkfile = 'Vnome/webchat/transcripts/ksfo" ; 

# the following line is for the webchat. service. digital system 
#$talkfile 

"/usr/local/httpd/htdocs/webchat/transcripts/ksfo" ; 
Stalkfile 

"/home/1 anshark/www/pages/webchat/transcripts/ksfo" ; 

$point_gif = 

"nttp : //www . cybertoday . com/cybertoday/webchat/poi nt . gi f " ; 

$webchat_logo = 

"http : //www. ccnet . com/1 aporte/i mages/ksf ol ogo. gi f " ; 

$about_local_server = "nttp: //www. cybertoday .com/" ; 

Slocal.tz = "PDT (-0700 GMT)"; 

$read_block_si2e = 512; 

$num_context_paras = 0; 

$num_context_paras_when_starting = 10; 

$para_mark_size =7; # 7 digits (space padded) 

$back_jump = 10; 

$way_back_when = 40; 



# get the form 
&ReadParse; 
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